/tumn ,  - -   ( - )

\  ns4_Text*   _f...  - ,      RETURN
\  na4_Libr*   _f    (  )     .
\  n_4_Tape*   _f         = RETURN !

rn n_4_Tape*  XXecho /tumn $a -  tar-       ; echo OK
rn ns4_Text*  XXecho /tumn $a -    ; cat $a
rn na4_Libr*  XXecho /tumn $a -   ; ar t $a

<\  +     -
 (a na4_Libr*  
  . _ _z\ File\ $@\ in\ library
 )
 (a ns4_Text*   
  . _ _z\ Node\ $@\ in\ text\ file
 )
 (a n_4_Tape*     tar
  . _ _f
 )
)

rn n_4_* XXecho /tumpn    $a ( $T) ; tar tf $a
